home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / yam_i_dodatki / yam-list-1.0.lha / unsubscribe.rexx < prev    next >
OS/2 REXX Batch file  |  1996-12-31  |  1KB  |  30 lines
  1. /*
  2. ** $VER: Unsubscribe.rexx 1.0 (12.30.96)
  3. **
  4. ** Written by Peter Greci <midgard@nycmetro.com>
  5. **
  6. ** It scans the incoming folder for messages with the subject
  7. ** "Subscribe" and adds the sender to the list.
  8. **/
  9.  
  10. OPTIONS RESULTS
  11. ADDRESS YAM
  12. SetFolder 0                                  /* go to Incoming folder  */
  13. GetFolderInfo MAX; entries = RESULT          /* get number of mail    */
  14. DO i=0 TO entries-1                          /* scan all mail         */
  15.   SetMail i                                  /* set topical mail      */
  16.   GetMailInfo SUBJECT                        /* ask for subject       */
  17.   IF RESULT = 'unsubscribe' THEN DO          /* criteria accomplished */
  18.     GetMailInfo FROM                         /* ask for sender and    */
  19.     ret=RESULT                               /* save as variable ret  */
  20.     mailarchive 3
  21.     mailwrite                                /* Bids Goodbye to a     */
  22.     writemailto ret                          /* subscriber            */
  23.     writesubject 'GoodBye'
  24.     writeletter 'listserv:bye'
  25.     writequeue
  26.     mailsendall
  27.   END
  28. END
  29. exit
  30.